home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / i / internet / software / tuwtcpsr / queueasm.s < prev    next >
Encoding:
Text File  |  1993-01-26  |  1011 b   |  69 lines
  1.         xdef    q_disint
  2.         xdef    q_enabint
  3.         xdef    p_disint
  4.         xdef    p_enabint
  5.         
  6.         super
  7.         data
  8.         
  9.         text
  10.  
  11. q_intstat:    dc.w    0
  12.  
  13. q_disint:
  14.         rts
  15.         move    sr,d0
  16.         ori        #$700,sr
  17.         tst.w    icount        
  18.         bne        murks
  19.         addq.w    #1,icount
  20.         move    d0,q_intstat
  21.         rts
  22.  
  23. icount:    dc.w    0
  24.         dc.w    $1111        
  25. murks:    and        #$fdff,sr    
  26. jmp        murks
  27.         
  28. q_enabint:
  29.         rts
  30.         cmp.w    #1,icount
  31.         bne murks
  32.         clr.w    icount
  33.         move.w     q_intstat,d0
  34.         move    sr,d1    
  35.         andi.w    #$0700,d0
  36.         andi.w    #$F8FF,d1
  37.         or        d0,d1
  38.         move    d1,sr
  39.         rts
  40.  
  41. p_intstat:    dc.w    0
  42.  
  43. p_disint:
  44.         move    sr,d0
  45.         ori        #$700,sr
  46.         tst.w    picount        
  47.         bne        pmurks
  48.         addq.w    #1,picount
  49.         move    d0,p_intstat
  50.         rts
  51.  
  52. picount:    dc.w    0
  53.         
  54.         dc.w    $2222        
  55. pmurks: and    #$fdff,sr    
  56. jmp        pmurks
  57.         
  58. p_enabint:
  59.         cmp.w    #1,picount
  60.         bne pmurks
  61.         clr.w    picount
  62.         move.w     p_intstat,d0
  63.         move    sr,d1    
  64.         andi.w    #$0700,d0
  65.         andi.w    #$F8FF,d1
  66.         or        d0,d1
  67.         move    d1,sr
  68.         rts
  69.